/*
 * This file is part of the OregonCore Project. See AUTHORS file for Copyright information
 *
 * This program is free software; you can redistribute it and/or modify it
 * under the terms of the GNU General Public License as published by the
 * Free Software Foundation; either version 2 of the License, or (at your
 * option) any later version.
 *
 * This program is distributed in the hope that it will be useful, but WITHOUT
 * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
 * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for
 * more details.
 *
 * You should have received a copy of the GNU General Public License along
 * with this program. If not, see <http://www.gnu.org/licenses/>.
 */

/* ScriptData
SDName: Arcatraz
SD%Complete: 60
SDComment: Warden Mellichar, event controller for Skyriss event. Millhouse Manastorm. @todo make better combatAI for Millhouse.
SDCategory: Tempest Keep, The Arcatraz
EndScriptData */

/* ContentData
npc_millhouse_manastorm
npc_warden_mellichar
mob_zerekethvoidzone
EndContentData */

#include "ScriptMgr.h"
#include "ScriptedCreature.h"
#include "arcatraz.h"

/*#####
# npc_millhouse_manastorm
#####*/

#define SAY_INTRO_1                 -1552010
#define SAY_INTRO_2                 -1552011
#define SAY_WATER                   -1552012
#define SAY_BUFFS                   -1552013
#define SAY_DRINK                   -1552014
#define SAY_READY                   -1552015
#define SAY_KILL_1                  -1552016
#define SAY_KILL_2                  -1552017
#define SAY_PYRO                    -1552018
#define SAY_ICEBLOCK                -1552019
#define SAY_LOWHP                   -1552020
#define SAY_DEATH                   -1552021
#define SAY_COMPLETE                -1552022

#define SPELL_CONJURE_WATER         36879
#define SPELL_ARCANE_INTELLECT      36880
#define SPELL_ICE_ARMOR             36881

#define SPELL_ARCANE_MISSILES       33833
#define SPELL_CONE_OF_COLD          12611
#define SPELL_FIRE_BLAST            13341
#define SPELL_FIREBALL              14034
#define SPELL_FROSTBOLT             15497
#define SPELL_PYROBLAST             33975

class npc_milhouse_manastorm : CreatureScript
{
public:
    npc_milhouse_manastorm() : CreatureScript("npc_millhouse_manastorm") {}

    struct npc_millhouse_manastormAI : public ScriptedAI
    {
        npc_millhouse_manastormAI(Creature* c) : ScriptedAI(c)
        {
            pInstance = (ScriptedInstance*)c->GetInstanceData();
        }

        ScriptedInstance* pInstance;

        uint32 EventProgress_Timer;
        uint32 Phase;
        bool Init;
        bool LowHp;

        uint32 Pyroblast_Timer;
        uint32 Fireball_Timer;

        void Reset()
        {
            EventProgress_Timer = 2000;
            LowHp = false;
            Init = false;
            Phase = 1;

            Pyroblast_Timer = 1000;
            Fireball_Timer = 2500;

            if (pInstance)
            {
                if (pInstance->GetData(DATA_WARDEN_2) == DONE)
                    Init = true;

                if (pInstance->GetData(DATA_HARBINGERSKYRISS) == DONE)
                    DoScriptText(SAY_COMPLETE, me);
            }
        }

        void AttackStart(Unit* pWho)
        {
            if (me->Attack(pWho, true))
            {
                me->AddThreat(pWho, 0.0f);
                me->SetInCombatWith(pWho);
                pWho->SetInCombatWith(me);

                me->GetMotionMaster()->MoveChase(pWho, 25.0f);
            }
        }

        void EnterCombat(Unit* /*who*/)
        {
        }

        void KilledUnit(Unit* /*victim*/)
        {
            switch (rand() % 2)
            {
            case 0:
                DoScriptText(SAY_KILL_1, me);
                break;
            case 1:
                DoScriptText(SAY_KILL_2, me);
                break;
            }
        }

        void JustDied(Unit* /*victim*/)
        {
            DoScriptText(SAY_DEATH, me);

            /*for questId 10886 (heroic mode only)
            if (pInstance && pInstance->GetData(DATA_HARBINGERSKYRISS) != DONE)
                ->FailQuest();*/
        }

        void UpdateAI(const uint32 diff)
        {
            if (!Init)
            {
                if (EventProgress_Timer <= diff)
                {
                    if (Phase < 8)
                    {
                        switch (Phase)
                        {
                        case 1:
                            DoScriptText(SAY_INTRO_1, me);
                            EventProgress_Timer = 18000;
                            break;
                        case 2:
                            DoScriptText(SAY_INTRO_2, me);
                            EventProgress_Timer = 18000;
                            break;
                        case 3:
                            DoScriptText(SAY_WATER, me);
                            DoCast(me, SPELL_CONJURE_WATER);
                            EventProgress_Timer = 7000;
                            break;
                        case 4:
                            DoScriptText(SAY_BUFFS, me);
                            DoCast(me, SPELL_ICE_ARMOR);
                            EventProgress_Timer = 7000;
                            break;
                        case 5:
                            DoScriptText(SAY_DRINK, me);
                            DoCast(me, SPELL_ARCANE_INTELLECT);
                            EventProgress_Timer = 7000;
                            break;
                        case 6:
                            DoScriptText(SAY_READY, me);
                            EventProgress_Timer = 6000;
                            break;
                        case 7:
                            if (pInstance)
                                pInstance->SetData(DATA_WARDEN_2, DONE);
                            Init = true;
                            break;
                        }
                        ++Phase;
                    }
                }
                else EventProgress_Timer -= diff;
            }

            if (!UpdateVictim())
                return;

            if (!LowHp && HealthBelowPct(20))
            {
                DoScriptText(SAY_LOWHP, me);
                LowHp = true;
            }

            if (Pyroblast_Timer <= diff)
            {
                if (me->IsNonMeleeSpellCast(false))
                    return;

                DoScriptText(SAY_PYRO, me);

                DoCastVictim(SPELL_PYROBLAST);
                Pyroblast_Timer = 40000;
            }
            else Pyroblast_Timer -= diff;

            if (Fireball_Timer <= diff)
            {
                DoCastVictim(SPELL_FIREBALL);
                Fireball_Timer = 4000;
            }
            else Fireball_Timer -= diff;

            DoMeleeAttackIfReady();
        }
    };

    CreatureAI* GetAI(Creature* pCreature) const
    {
        return new npc_millhouse_manastormAI(pCreature);
    }
};

/*#####
# npc_warden_mellichar
#####*/

#define YELL_INTRO1         -1552023
#define YELL_INTRO2         -1552024
#define YELL_RELEASE1       -1552025
#define YELL_RELEASE2A      -1552026
#define YELL_RELEASE2B      -1552027
#define YELL_RELEASE3       -1552028
#define YELL_RELEASE4       -1552029
#define YELL_WELCOME        -1552030

//phase 2(acid mobs)
#define ENTRY_TRICKSTER     20905
#define ENTRY_PH_HUNTER     20906
//phase 3
#define ENTRY_MILLHOUSE     20977
//phase 4(acid mobs)
#define ENTRY_AKKIRIS       20908
#define ENTRY_SULFURON      20909
//phase 5(acid mobs)
#define ENTRY_TW_DRAK       20910
#define ENTRY_BL_DRAK       20911
//phase 6
#define ENTRY_SKYRISS       20912

//TARGET_SCRIPT
#define SPELL_TARGET_ALPHA  36856
#define SPELL_TARGET_BETA   36854
#define SPELL_TARGET_DELTA  36857
#define SPELL_TARGET_GAMMA  36858
#define SPELL_TARGET_OMEGA  36852
#define SPELL_BUBBLE_VISUAL 36849

class npc_warden_mallichar : CreatureScript
{
public:
    npc_warden_mallichar() : CreatureScript("npc_warden_mellichar") {}

    struct npc_warden_mellicharAI : public ScriptedAI
    {
        npc_warden_mellicharAI(Creature* c) : ScriptedAI(c)
        {
            pInstance = (ScriptedInstance*)c->GetInstanceData();
        }

        ScriptedInstance* pInstance;

        bool IsRunning;
        bool CanSpawn;

        uint32 EventProgress_Timer;
        uint32 Phase;

        void Reset()
        {
            IsRunning = false;
            CanSpawn = false;

            EventProgress_Timer = 22000;
            Phase = 1;

            me->SetFlag(UNIT_FIELD_FLAGS, UNIT_FLAG_NON_ATTACKABLE);
            DoCast(me, SPELL_TARGET_OMEGA);

            if (pInstance)
                pInstance->SetData(DATA_HARBINGERSKYRISS, NOT_STARTED);
        }

        void AttackStart(Unit* /*who*/) { }

        void MoveInLineOfSight(Unit* who)
        {
            if (IsRunning)
                return;

            if (!me->GetVictim() && who->isTargetableForAttack() && (me->IsHostileTo(who)) && who->isInAccessiblePlaceFor(me))
            {
                if (!me->CanFly() && me->GetDistanceZ(who) > CREATURE_Z_ATTACK_RANGE)
                    return;
                if (who->GetTypeId() != TYPEID_PLAYER)
                    return;

                float attackRadius = me->GetAttackDistance(who) / 10;
                if (me->IsWithinDistInMap(who, attackRadius) && me->IsWithinLOSInMap(who))
                    EnterCombat(who);
            }
        }

        void EnterCombat(Unit* /*who*/)
        {
            DoScriptText(YELL_INTRO1, me);
            DoCast(me, SPELL_BUBBLE_VISUAL);

            if (pInstance)
            {
                pInstance->SetData(DATA_HARBINGERSKYRISS, IN_PROGRESS);
                if (GameObject* Sphere = GameObject::GetGameObject(*me, pInstance->GetData64(DATA_SPHERE_SHIELD)))
                    Sphere->SetGoState(GO_STATE_READY);
                IsRunning = true;
            }
        }

        bool CanProgress()
        {
            if (pInstance)
            {
                if (Phase == 7 && pInstance->GetData(DATA_WARDEN_4) == DONE)
                    return true;
                if (Phase == 6 && pInstance->GetData(DATA_WARDEN_3) == DONE)
                    return true;
                if (Phase == 5 && pInstance->GetData(DATA_WARDEN_2) == DONE)
                    return true;
                if (Phase == 4)
                    return true;
                if (Phase == 3 && pInstance->GetData(DATA_WARDEN_1) == DONE)
                    return true;
                if (Phase == 2 && pInstance->GetData(DATA_HARBINGERSKYRISS) == IN_PROGRESS)
                    return true;
                if (Phase == 1 && pInstance->GetData(DATA_HARBINGERSKYRISS) == IN_PROGRESS)
                    return true;
                return false;
            }
            return false;
        }

        void DoPrepareForPhase()
        {
            if (pInstance)
            {
                me->InterruptNonMeleeSpells(true);
                me->RemoveSpellsCausingAura(SPELL_AURA_DUMMY);

                switch (Phase)
                {
                case 2:
                    DoCast(me, SPELL_TARGET_ALPHA);
                    pInstance->SetData(DATA_WARDEN_1, IN_PROGRESS);
                    if (GameObject* Sphere = GameObject::GetGameObject(*me, pInstance->GetData64(DATA_SPHERE_SHIELD)))
                        Sphere->SetGoState(GO_STATE_READY);
                    break;
                case 3:
                    DoCast(me, SPELL_TARGET_BETA);
                    pInstance->SetData(DATA_WARDEN_2, IN_PROGRESS);
                    break;
                case 5:
                    DoCast(me, SPELL_TARGET_DELTA);
                    pInstance->SetData(DATA_WARDEN_3, IN_PROGRESS);
                    break;
                case 6:
                    DoCast(me, SPELL_TARGET_GAMMA);
                    pInstance->SetData(DATA_WARDEN_4, IN_PROGRESS);
                    break;
                case 7:
                    pInstance->SetData(DATA_WARDEN_5, IN_PROGRESS);
                    break;
                }
                CanSpawn = true;
            }
        }

        void UpdateAI(const uint32 diff)
        {
            if (!IsRunning)
                return;

            if (EventProgress_Timer <= diff)
            {
                if (pInstance)
                {
                    if (pInstance->GetData(DATA_HARBINGERSKYRISS) == FAIL)
                        Reset();
                }

                if (CanSpawn)
                {
                    //continue beam omega pod, unless we are about to summon skyriss
                    if (Phase != 7)
                        DoCast(me, SPELL_TARGET_OMEGA);

                    switch (Phase)
                    {
                    case 2:
                        switch (rand() % 2)
                        {
                        case 0:
                            me->SummonCreature(ENTRY_TRICKSTER, 478.326f, -148.505f, 42.56f, 3.19f, TEMPSUMMON_TIMED_OR_DEAD_DESPAWN, 600000);
                            break;
                        case 1:
                            me->SummonCreature(ENTRY_PH_HUNTER, 478.326f, -148.505f, 42.56f, 3.19f, TEMPSUMMON_TIMED_OR_DEAD_DESPAWN, 600000);
                            break;
                        }
                        break;
                    case 3:
                        me->SummonCreature(ENTRY_MILLHOUSE, 413.292f, -148.378f, 42.56f, 6.27f, TEMPSUMMON_TIMED_OR_DEAD_DESPAWN, 600000);
                        break;
                    case 4:
                        DoScriptText(YELL_RELEASE2B, me);
                        break;
                    case 5:
                        switch (rand() % 2)
                        {
                        case 0:
                            me->SummonCreature(ENTRY_AKKIRIS, 420.179f, -174.396f, 42.58f, 0.02f, TEMPSUMMON_TIMED_OR_DEAD_DESPAWN, 600000);
                            break;
                        case 1:
                            me->SummonCreature(ENTRY_SULFURON, 420.179f, -174.396f, 42.58f, 0.02f, TEMPSUMMON_TIMED_OR_DEAD_DESPAWN, 600000);
                            break;
                        }
                        break;
                    case 6:
                        switch (rand() % 2)
                        {
                        case 0:
                            me->SummonCreature(ENTRY_TW_DRAK, 471.795f, -174.58f, 42.58f, 3.06f, TEMPSUMMON_TIMED_OR_DEAD_DESPAWN, 600000);
                            break;
                        case 1:
                            me->SummonCreature(ENTRY_BL_DRAK, 471.795f, -174.58f, 42.58f, 3.06f, TEMPSUMMON_TIMED_OR_DEAD_DESPAWN, 600000);
                            break;
                        }
                        break;
                    case 7:
                        me->SummonCreature(ENTRY_SKYRISS, 445.763f, -191.639f, 44.64f, 1.60f, TEMPSUMMON_TIMED_OR_DEAD_DESPAWN, 600000);
                        DoScriptText(YELL_WELCOME, me);
                        break;
                    }
                    CanSpawn = false;
                    ++Phase;
                }
                if (CanProgress())
                {
                    switch (Phase)
                    {
                    case 1:
                        DoScriptText(YELL_INTRO2, me);
                        EventProgress_Timer = 10000;
                        ++Phase;
                        break;
                    case 2:
                        DoScriptText(YELL_RELEASE1, me);
                        DoPrepareForPhase();
                        EventProgress_Timer = 7000;
                        break;
                    case 3:
                        DoScriptText(YELL_RELEASE2A, me);
                        DoPrepareForPhase();
                        EventProgress_Timer = 10000;
                        break;
                    case 4:
                        DoPrepareForPhase();
                        EventProgress_Timer = 15000;
                        break;
                    case 5:
                        DoScriptText(YELL_RELEASE3, me);
                        DoPrepareForPhase();
                        EventProgress_Timer = 15000;
                        break;
                    case 6:
                        DoScriptText(YELL_RELEASE4, me);
                        DoPrepareForPhase();
                        EventProgress_Timer = 15000;
                        break;
                    case 7:
                        DoPrepareForPhase();
                        EventProgress_Timer = 15000;
                        break;
                    }
                }
            }
            else EventProgress_Timer -= diff;
        }
    };
    CreatureAI* GetAI(Creature* pCreature) const
    {
        return new npc_warden_mellicharAI(pCreature);
    }
};


/*#####
# mob_zerekethvoidzone (this script probably not needed in future -> `creature_template_addon`.`auras`='36120 0')
#####*/

#define SPELL_VOID_ZONE_DAMAGE 36120

class mob_zerekethvodzone : CreatureScript
{
public:
    mob_zerekethvodzone() : CreatureScript("mob_zerekethvoidzone") {}

    struct mob_zerekethvoidzoneAI : public ScriptedAI
    {
        mob_zerekethvoidzoneAI(Creature* c) : ScriptedAI(c) {}

        void Reset()
        {
            me->SetUInt32Value(UNIT_NPC_FLAGS, 0);
            me->SetFaction(16);
            me->SetFlag(UNIT_FIELD_FLAGS, UNIT_FLAG_NOT_SELECTABLE);

            DoCast(me, SPELL_VOID_ZONE_DAMAGE);
        }

        void EnterCombat(Unit* /*who*/) {}
    };

    CreatureAI* GetAI(Creature* pCreature) const
    {
        return new mob_zerekethvoidzoneAI(pCreature);
    }
};

void AddSC_arcatraz()
{
    new npc_milhouse_manastorm();
    new npc_warden_mallichar();
    new mob_zerekethvodzone();
}

